Public Partial Class FrmTipoUsuariosABM
    Inherits System.Web.UI.Page
    Public TipoUsuario As CapaDeNegocios.nTipoUsuario = New CapaDeNegocios.nTipoUsuario
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("Login") = "Anonimo" Then
            Response.Redirect("/")
        End If
        If Not Page.IsPostBack Then
            LLenarGridTipoUsuario()
        End If
    End Sub
    Sub LLenarGridTipoUsuario()
        GridTipoUsuario.DataSource = TipoUsuario.ListarTipoUsuario(0, Trim(TxtTipoUsuario.Text))
        GridTipoUsuario.DataBind()
    End Sub
    Sub LimpiarCampos()
        TxtTipoUsuario.Text = ""
        HFIdTipoUsuario.Value = ""
        GridTipoUsuario.SelectedIndex = -1
        LLenarGridTipoUsuario()
    End Sub

    Protected Sub LinkGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkGuardar.Click
        If HFIdTipoUsuario.Value = "" Then
            If Len(Trim(TxtTipoUsuario.Text)) > 0 Then
                If TipoUsuario.Existe(Trim(TxtTipoUsuario.Text)) Then
                    Me.Response.Write("<script languaje='javascript'>window.alert('El Grupo ya existe')</script>")
                Else
                    TipoUsuario.Insertar(Trim(TxtTipoUsuario.Text))
                    LimpiarCampos()
                End If
            Else
                Me.Response.Write("<script languaje='javascript'>window.alert('Debe Completar los campos')</script>")
            End If
        Else
            If Len(Trim(TxtTipoUsuario.Text)) > 0 Then
                If TipoUsuario.Existe(Trim(TxtTipoUsuario.Text)) Then
                    Me.Response.Write("<script languaje='javascript'>window.alert('El Grupo ya existe')</script>")
                Else
                    TipoUsuario.Modificar(Int(HFIdTipoUsuario.Value), Trim(TxtTipoUsuario.Text))
                    LimpiarCampos()
                End If
            Else
                Me.Response.Write("<script languaje='javascript'>window.alert('No se Pudo realizar la modificacion')</script>")
            End If
        End If
        
    End Sub

    Protected Sub GridTipoUsuario_RowCommand(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridTipoUsuario.RowCommand
        If e.CommandName = "Select" Then
            HFIdTipoUsuario.Value = e.CommandSource.Parent.parent.Findcontrol("HFTipoUsuario").value
            TxtTipoUsuario.Text = e.CommandSource.Parent.Parent.Findcontrol("LblDescripcion").text
        End If
    End Sub

    Protected Sub LinkEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkEliminar.Click
        If HFIdTipoUsuario.Value <> "" Then
            If TipoUsuario.Eliminar(HFIdTipoUsuario.Value) Then
                Me.Response.Write("<script languaje='javascript'>window.alert('Se elimino Correctamente')</script>")
                LimpiarCampos()
            Else
                Me.Response.Write("<script languaje='javascript'>window.alert('No se Pudo Eliminar el Grupo')</script>")
            End If
        End If
        
    End Sub

    Protected Sub LinkBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkBuscar.Click
        If Len(Trim(TxtTipoUsuario.Text)) > 0 Then
            LLenarGridTipoUsuario()
        End If
    End Sub

    Protected Sub LinkCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkCancelar.Click
        LimpiarCampos()
    End Sub
End Class